home *** CD-ROM | disk | FTP | other *** search
/ F1 Licenseware / F1 Licenseware - Volume 1.iso / disks / 049b.dms / 049b.adf / MORE_SOURCE_CODE / permanent_iff.amos / permanent_iff.amosSourceCode
AMOS Source Code  |  1992-02-26  |  694b  |  36 lines
  1. '
  2. ' How to save IFF animations with your program.
  3. '
  4. ' By Edmund Clay 
  5. ' June 94
  6. '
  7. '
  8. ' When the program has run, it will save WITH the animation. 
  9. ' But you must also include the value of L in your program.
  10. ' Find out what it is from direct mode, then include the line
  11. '
  12. ' L=(Whatever it was)  
  13. '
  14. '------------------------------------------------------------- 
  15. '
  16. ' Load an animation
  17. '
  18. Open In 1,"amospro_tutorial:iff_anim/amos.anim"
  19. L=Frame Load(1 To 10,1000)
  20. Close 
  21. '
  22. ' This is the trick; convert to a permanent bank.  
  23. '
  24. Doke Start(10)-12,1
  25. '
  26. 'Play the animation
  27. '
  28. Do 
  29. P=Frame Play(10,1,0)
  30. Double Buffer 
  31. For X=2 To L-1
  32. P=Frame Play(P,1)
  33. Screen Swap 
  34. Wait Vbl : Wait Vbl : Wait Vbl 
  35. Next 
  36. Loop